object Ffaturamanutencao: TFfaturamanutencao
  Left = 251
  Top = 149
  BorderIcons = []
  BorderStyle = bsToolWindow
  Caption = 'Faturamento'
  ClientHeight = 631
  ClientWidth = 833
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  KeyPreview = True
  OldCreateOrder = False
  Position = poDesktopCenter
  OnCreate = FormCreate
  OnKeyPress = FormKeyPress
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object Label1: TLabel
    Left = 4
    Top = 16
    Width = 32
    Height = 13
    Caption = 'Cliente'
  end
  object Label2: TLabel
    Left = 698
    Top = 16
    Width = 62
    Height = 13
    Caption = 'Compet'#234'ncia'
  end
  object Label3: TLabel
    Left = 4
    Top = 56
    Width = 39
    Height = 13
    Caption = 'Emiss'#227'o'
  end
  object Label4: TLabel
    Left = 132
    Top = 56
    Width = 56
    Height = 13
    Caption = 'Vencimento'
  end
  object Label5: TLabel
    Left = 264
    Top = 56
    Width = 35
    Height = 13
    Caption = 'Modelo'
  end
  object label6: TLabel
    Left = 4
    Top = 402
    Width = 51
    Height = 13
    Caption = 'Transporte'
  end
  object Label7: TLabel
    Left = 160
    Top = 402
    Width = 43
    Height = 13
    Caption = 'Refei'#231#227'o'
  end
  object Label8: TLabel
    Left = 311
    Top = 402
    Width = 37
    Height = 13
    Caption = 'Material'
  end
  object Label9: TLabel
    Left = 4
    Top = 572
    Width = 25
    Height = 13
    Caption = 'IRRF'
  end
  object Label10: TLabel
    Left = 115
    Top = 572
    Width = 26
    Height = 13
    Caption = 'CSLL'
  end
  object Label11: TLabel
    Left = 236
    Top = 572
    Width = 17
    Height = 13
    Caption = 'PIS'
  end
  object Label12: TLabel
    Left = 336
    Top = 572
    Width = 39
    Height = 13
    Caption = 'COFINS'
  end
  object Label14: TLabel
    Left = 4
    Top = 602
    Width = 31
    Height = 13
    Caption = 'Banco'
  end
  object Label15: TLabel
    Left = 455
    Top = 402
    Width = 82
    Height = 13
    Caption = 'Aliquota do ISQN'
  end
  object Label16: TLabel
    Left = 136
    Top = 32
    Width = 38
    Height = 13
    Caption = 'Label16'
  end
  object Label17: TLabel
    Left = 568
    Top = 64
    Width = 251
    Height = 28
    AutoSize = False
    Caption = 'Label17'
    Color = clLime
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -21
    Font.Name = 'Arial'
    Font.Style = []
    ParentColor = False
    ParentFont = False
    Layout = tlCenter
  end
  object Label18: TLabel
    Left = 589
    Top = 570
    Width = 52
    Height = 16
    Caption = 'Liquido'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
  end
  object Label19: TLabel
    Left = 619
    Top = 402
    Width = 68
    Height = 13
    Caption = 'Valor do ISQN'
  end
  object cliente: TEdit
    Left = 4
    Top = 32
    Width = 121
    Height = 21
    MaxLength = 6
    TabOrder = 0
    OnExit = clienteExit
  end
  object Competencia: TEdit
    Left = 698
    Top = 32
    Width = 121
    Height = 21
    MaxLength = 7
    TabOrder = 1
  end
  object emissao: TDateEdit
    Left = 4
    Top = 72
    Width = 121
    Height = 21
    DefaultToday = True
    NumGlyphs = 2
    TabOrder = 2
  end
  object vencimento: TDateEdit
    Left = 132
    Top = 72
    Width = 121
    Height = 21
    DefaultToday = True
    NumGlyphs = 2
    TabOrder = 3
  end
  object modelo: TEdit
    Left = 264
    Top = 72
    Width = 121
    Height = 21
    MaxLength = 6
    TabOrder = 4
  end
  object transporte: TCurrencyEdit
    Left = 64
    Top = 400
    Width = 89
    Height = 21
    TabOrder = 6
  end
  object Refeicao: TCurrencyEdit
    Left = 213
    Top = 400
    Width = 89
    Height = 21
    TabOrder = 7
  end
  object material: TCurrencyEdit
    Left = 359
    Top = 400
    Width = 89
    Height = 21
    TabOrder = 8
  end
  object GroupBox2: TGroupBox
    Left = 4
    Top = 432
    Width = 818
    Height = 129
    Caption = 'Reten'#231#245'es'
    Color = clMoneyGreen
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentColor = False
    ParentFont = False
    TabOrder = 11
    object DBGrid2: TDBGrid
      Left = 5
      Top = 12
      Width = 724
      Height = 110
      DataSource = ds_retencoes
      Options = [dgTitles, dgIndicator, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit]
      ReadOnly = True
      TabOrder = 0
      TitleFont.Charset = DEFAULT_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -11
      TitleFont.Name = 'MS Sans Serif'
      TitleFont.Style = []
      Columns = <
        item
          Expanded = False
          FieldName = 'EMPRESA'
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'NOTAFISCAL'
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'RETENCAO'
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'DESCRICAO'
          Title.Alignment = taCenter
          Width = 360
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'ALIQUOTA'
          Title.Alignment = taCenter
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'VALOR'
          Title.Alignment = taCenter
          Visible = True
        end>
    end
    object Button4: TButton
      Left = 733
      Top = 12
      Width = 80
      Height = 37
      Caption = '&Incluir'
      TabOrder = 1
      OnClick = Button4Click
    end
    object Button5: TButton
      Left = 733
      Top = 50
      Width = 80
      Height = 37
      Caption = '&Alterar'
      TabOrder = 2
      OnClick = Button5Click
    end
    object Button6: TButton
      Left = 733
      Top = 88
      Width = 80
      Height = 36
      Caption = '&Excluir'
      TabOrder = 3
      OnClick = Button6Click
    end
  end
  object CurrencyEdit4: TCurrencyEdit
    Left = 40
    Top = 570
    Width = 70
    Height = 21
    TabStop = False
    Color = clRed
    DisplayFormat = ',0.00'
    ReadOnly = True
    TabOrder = 12
  end
  object CurrencyEdit5: TCurrencyEdit
    Left = 149
    Top = 570
    Width = 70
    Height = 21
    TabStop = False
    Color = clRed
    DisplayFormat = ',0.00'
    ReadOnly = True
    TabOrder = 13
  end
  object CurrencyEdit6: TCurrencyEdit
    Left = 260
    Top = 570
    Width = 70
    Height = 21
    TabStop = False
    Color = clRed
    DisplayFormat = ',0.00'
    ReadOnly = True
    TabOrder = 14
  end
  object CurrencyEdit7: TCurrencyEdit
    Left = 381
    Top = 570
    Width = 70
    Height = 21
    TabStop = False
    Color = clRed
    DisplayFormat = ',0.00'
    ReadOnly = True
    TabOrder = 15
  end
  object aliqiss: TCurrencyEdit
    Left = 542
    Top = 400
    Width = 70
    Height = 21
    DisplayFormat = ',0.00'
    TabOrder = 9
    OnExit = aliqissExit
  end
  object ComboBox1: TComboBox
    Left = 80
    Top = 600
    Width = 505
    Height = 21
    ItemHeight = 13
    TabOrder = 16
  end
  object Button7: TButton
    Left = 624
    Top = 600
    Width = 121
    Height = 25
    Caption = '&Gravar Nota Fiscal'
    TabOrder = 17
    OnClick = Button7Click
  end
  object Button8: TButton
    Left = 744
    Top = 600
    Width = 75
    Height = 25
    Caption = '&Cancelar'
    TabOrder = 18
    OnClick = Button8Click
  end
  object liquido: TCurrencyEdit
    Left = 648
    Top = 570
    Width = 170
    Height = 24
    TabStop = False
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clBlue
    Font.Height = -13
    Font.Name = 'Arial'
    Font.Style = []
    ParentFont = False
    ReadOnly = True
    TabOrder = 19
  end
  object GroupBox1: TGroupBox
    Left = 4
    Top = 104
    Width = 818
    Height = 289
    Caption = 'Itens da Nota Fiscal'
    TabOrder = 5
    object Label13: TLabel
      Left = 5
      Top = 250
      Width = 89
      Height = 30
      AutoSize = False
      Caption = 'Total Bruto'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -16
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      Layout = tlCenter
    end
    object DBGrid1: TDBGrid
      Left = 5
      Top = 14
      Width = 810
      Height = 235
      DataSource = ds_itens
      Options = [dgTitles, dgIndicator, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit, dgMultiSelect]
      ReadOnly = True
      TabOrder = 1
      TitleFont.Charset = DEFAULT_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -11
      TitleFont.Name = 'MS Sans Serif'
      TitleFont.Style = []
    end
    object Button1: TButton
      Left = 583
      Top = 248
      Width = 75
      Height = 25
      Caption = '&Incluir'
      TabOrder = 0
      OnClick = Button1Click
    end
    object Button2: TButton
      Left = 660
      Top = 248
      Width = 75
      Height = 25
      Caption = '&Alterar'
      TabOrder = 2
      OnClick = Button2Click
    end
    object Button3: TButton
      Left = 736
      Top = 248
      Width = 75
      Height = 25
      Caption = '&Excluir'
      TabOrder = 3
      OnClick = Button3Click
    end
    object bruto: TCurrencyEdit
      Left = 101
      Top = 250
      Width = 185
      Height = 30
      Color = clRed
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clRed
      Font.Height = -13
      Font.Name = 'Arial'
      Font.Style = []
      ParentFont = False
      ReadOnly = True
      TabOrder = 4
    end
  end
  object valoriss: TCurrencyEdit
    Left = 696
    Top = 400
    Width = 121
    Height = 21
    TabStop = False
    ReadOnly = True
    TabOrder = 10
  end
  object IBCConnection1: TIBCConnection
    Database = 'c:\brasfort\brasfort.fdb'
    ClientLibrary = 'c:\brasfort\gds32.dll'
    Username = 'sysdba'
    Password = 'masterkey'
    Server = 'localhost'
    Connected = True
    Left = 628
    Top = 8
  end
  object clientes: TIBCQuery
    Connection = IBCConnection1
    SQL.Strings = (
      
        'select codigo, nome, ir, cs, pis, cofins, ccusto0, ccusto1 from ' +
        'clientes where codigo = 1')
    Left = 432
    Top = 64
    object clientesCODIGO: TIntegerField
      FieldName = 'CODIGO'
      Required = True
    end
    object clientesNOME: TStringField
      FieldName = 'NOME'
      Size = 58
    end
    object clientesIR: TFloatField
      FieldName = 'IR'
    end
    object clientesCS: TFloatField
      FieldName = 'CS'
    end
    object clientesPIS: TFloatField
      FieldName = 'PIS'
    end
    object clientesCOFINS: TFloatField
      FieldName = 'COFINS'
    end
    object clientesCCUSTO0: TStringField
      FieldName = 'CCUSTO0'
      Size = 3
    end
    object clientesCCUSTO1: TStringField
      FieldName = 'CCUSTO1'
      Size = 3
    end
  end
  object retencao: TIBCQuery
    Connection = IBCConnection1
    SQL.Strings = (
      'select * from retencoes where notafiscal = 1')
    Left = 136
    Top = 480
    object retencaoEMPRESA: TIntegerField
      FieldName = 'EMPRESA'
    end
    object retencaoNOTAFISCAL: TIntegerField
      FieldName = 'NOTAFISCAL'
    end
    object retencaoRETENCAO: TIntegerField
      FieldName = 'RETENCAO'
    end
    object retencaoDESCRICAO: TStringField
      DisplayWidth = 100
      FieldName = 'DESCRICAO'
      Size = 100
    end
    object retencaoALIQUOTA: TFloatField
      FieldName = 'ALIQUOTA'
      DisplayFormat = '##.00'
    end
    object retencaoVALOR: TFloatField
      FieldName = 'VALOR'
      DisplayFormat = '###,###.00'
    end
  end
  object faturamento: TIBCQuery
    Connection = IBCConnection1
    SQL.Strings = (
      'select * from faturamento order by notafiscal')
    Left = 464
    Top = 64
    object faturamentoNOTAFISCAL: TIntegerField
      FieldName = 'NOTAFISCAL'
      Required = True
    end
    object faturamentoCLIENTE: TIntegerField
      FieldName = 'CLIENTE'
    end
    object faturamentoEMISSAO: TDateField
      FieldName = 'EMISSAO'
    end
    object faturamentoVENCTO: TDateField
      FieldName = 'VENCTO'
    end
    object faturamentoIRRF: TFloatField
      FieldName = 'IRRF'
    end
    object faturamentoCSLL: TFloatField
      FieldName = 'CSLL'
    end
    object faturamentoCOFINS: TFloatField
      FieldName = 'COFINS'
    end
    object faturamentoPIS: TFloatField
      FieldName = 'PIS'
    end
    object faturamentoFEDERAL: TFloatField
      FieldName = 'FEDERAL'
    end
    object faturamentoBANCO_RECEBIMENTO: TIntegerField
      FieldName = 'BANCO_RECEBIMENTO'
    end
    object faturamentoALIQISS: TFloatField
      FieldName = 'ALIQISS'
    end
    object faturamentoISS: TFloatField
      FieldName = 'ISS'
    end
    object faturamentoIMPRESSA: TStringField
      FieldName = 'IMPRESSA'
      FixedChar = True
      Size = 1
    end
    object faturamentoTOTAL: TFloatField
      FieldName = 'TOTAL'
    end
    object faturamentoRECEBIMENTO: TDateField
      FieldName = 'RECEBIMENTO'
    end
    object faturamentoCANCELAMENTO: TDateField
      FieldName = 'CANCELAMENTO'
    end
    object faturamentoMATERIAL: TStringField
      FieldName = 'MATERIAL'
      FixedChar = True
      Size = 1
    end
    object faturamentoVALETRANSPORTE: TFloatField
      FieldName = 'VALETRANSPORTE'
      currency = True
    end
    object faturamentoVALEALIMENTACAO: TFloatField
      FieldName = 'VALEALIMENTACAO'
      currency = True
    end
    object faturamentoINSS: TStringField
      FieldName = 'INSS'
      Size = 7
    end
    object faturamentoVALORMATERIAL: TFloatField
      FieldName = 'VALORMATERIAL'
      currency = True
    end
    object faturamentoCCUSTO1: TStringField
      FieldName = 'CCUSTO1'
      Size = 3
    end
    object faturamentoCCUSTO2: TStringField
      FieldName = 'CCUSTO2'
      Size = 3
    end
    object faturamentoEMPRESA: TIntegerField
      FieldName = 'EMPRESA'
    end
  end
  object servicos: TIBCQuery
    Connection = IBCConnection1
    SQL.Strings = (
      'select * from tiposervico')
    Left = 400
    Top = 64
    object servicosCODIGO: TIntegerField
      FieldName = 'CODIGO'
      Required = True
    end
    object servicosDESCRICAO: TStringField
      FieldName = 'DESCRICAO'
      Size = 60
    end
  end
  object itens: TIBCQuery
    Connection = IBCConnection1
    SQL.Strings = (
      'select * from itens where notafiscal = 1')
    AfterOpen = itensAfterOpen
    Left = 172
    Top = 168
    object itensEMPRESA: TIntegerField
      FieldName = 'EMPRESA'
      Required = True
    end
    object itensNOTAFISCAL: TIntegerField
      FieldName = 'NOTAFISCAL'
      Required = True
    end
    object itensDESCRICAO: TStringField
      DisplayWidth = 76
      FieldName = 'DESCRICAO'
      Size = 500
    end
    object itensUNITARIO: TFloatField
      FieldName = 'UNITARIO'
      DisplayFormat = '###,##0.00'
    end
    object itensTOTAL: TFloatField
      FieldName = 'TOTAL'
      DisplayFormat = '###,##0.00'
    end
    object itensCODIGOSERVICO: TIntegerField
      DisplayLabel = 'SRV'
      DisplayWidth = 5
      FieldName = 'CODIGOSERVICO'
    end
  end
  object ds_retencoes: TIBCDataSource
    DataSet = retencao
    Left = 180
    Top = 480
  end
  object ds_itens: TIBCDataSource
    DataSet = itens
    Left = 212
    Top = 168
  end
  object atualiza: TIBCQuery
    Connection = IBCConnection1
    Left = 340
    Top = 288
  end
  object bancos: TIBCQuery
    Connection = IBCConnection1
    SQL.Strings = (
      'select codigo, informacao from banco')
    Left = 496
    Top = 64
    object bancosCODIGO: TIntegerField
      FieldName = 'CODIGO'
      Required = True
    end
    object bancosINFORMACAO: TStringField
      FieldName = 'INFORMACAO'
      Size = 100
    end
  end
end
